home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / AnimationStak.cpt / DragTracer / card_4272.txt < prev    next >
Text File  |  1989-02-26  |  8KB  |  353 lines
  1. -- card: 4272 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4073
  5. -- name: Drag Screen
  6. ----- HyperTalk script -----
  7. on openCard
  8.   show card field "Do Drag"
  9. end openCard
  10.  
  11. on showMakeField
  12.   show card field "Make Data Field"
  13.   show card button "Show data field"
  14.   show card button "No, forget it."
  15.   show card button "Play back my drag."
  16. end showMakeField
  17.  
  18. on hideMakeField
  19.   hide card button "Show data field"
  20.   hide card button "No, forget it."
  21.   hide card button "Play back my drag."
  22.   hide card field "Make Data Field"
  23. end hideMakeField
  24.  
  25. on startDrag
  26.   show card button "one"
  27.   play "1"
  28.   wait 45 ticks
  29.   show card button "two"
  30.   play "2"
  31.   wait 45 ticks
  32.   show card button "three!"
  33.   play "3"
  34.   wait until the sound is "done"
  35.   put the mouseLoc into x1y1
  36.   repeat until the mouseClick
  37.     click at x1y1 -- draws trace
  38.     put the mouseLoc into x2y2
  39.     put "Drag from  " & x1y1 & "  to  " & x2y2 & return after hold
  40.     put x2y2 into x1y1
  41.   end repeat
  42.   put hold into card field "Data Scroll"
  43.   Put "--Drag Tracer version 1.0" & return & "--Paul A. Leonard" & return & "--3829 Lees Ave." & return & "--Long Beach, CA 90808" & return & return before item 1 of card field "Data Scroll"
  44.   hide card button "one"
  45.   hide card button "two"
  46.   hide card button "three!"
  47.   doMenu revert
  48.   choose browse tool
  49.   showMakeField
  50. end startDrag
  51.  
  52. on closeCard
  53.   hideMakeField
  54.   hide card field "Data Scroll"
  55.   hide card button "Return"
  56.   put return into card field "Data scroll"
  57. end closeCard
  58.  
  59.  
  60.  
  61. -- part 1 (field)
  62. -- low flags: 81
  63. -- high flags: 2004
  64. -- rect: left=26 top=31 right=197 bottom=489
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 8448
  71. -- line height: 16
  72. -- part name: Ask for location
  73.  
  74.  
  75. -- part 2 (field)
  76. -- low flags: 80
  77. -- high flags: 2002
  78. -- rect: left=60 top=131 right=153 bottom=440
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 1
  82. -- font id: 3
  83. -- text size: 12
  84. -- style flags: 1280
  85. -- line height: 16
  86. -- part name: Data File Location
  87.  
  88.  
  89. -- part 3 (button)
  90. -- low flags: 80
  91. -- high flags: A004
  92. -- rect: left=210 top=161 right=185 bottom=295
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: OK
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   --hide menubar
  104.   --hide card field "Ask for location"
  105.   --hide card field "Data File Location"
  106.   --hide card button "OK"
  107.   show card field "Do Drag"
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 4 (field)
  113. -- low flags: 81
  114. -- high flags: 2004
  115. -- rect: left=77 top=50 right=255 bottom=435
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Do Drag
  124. ----- HyperTalk script -----
  125. on mouseup
  126.   hide card field "Do Drag"
  127.   choose brush tool
  128.   set the pattern to 12
  129.   startdrag
  130. end mouseup
  131.  
  132.  
  133.  
  134.  
  135. -- part 6 (field)
  136. -- low flags: 80
  137. -- high flags: 4007
  138. -- rect: left=135 top=42 right=285 bottom=376
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 0
  142. -- font id: 3
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: data scroll
  147.  
  148.  
  149. -- part 12 (field)
  150. -- low flags: 81
  151. -- high flags: 2004
  152. -- rect: left=53 top=30 right=230 bottom=442
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 12
  158. -- style flags: 8448
  159. -- line height: 16
  160. -- part name: Make data field
  161.  
  162.  
  163. -- part 7 (button)
  164. -- low flags: 80
  165. -- high flags: A004
  166. -- rect: left=113 top=160 right=181 bottom=242
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: Show data field
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   hideMakeField
  178.   show card field "Data Scroll"
  179.   show card button "Return"
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 14 (button)
  185. -- low flags: 80
  186. -- high flags: A004
  187. -- rect: left=271 top=160 right=181 bottom=387
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: No, forget it.
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   hideMakeField
  199.   openCard
  200. end mouseUp
  201.  
  202.  
  203. -- part 17 (button)
  204. -- low flags: 80
  205. -- high flags: A004
  206. -- rect: left=149 top=193 right=214 bottom=346
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Play back my drag.
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   hideMakeField
  218.   choose brush tool
  219.   set pattern to 12
  220.   set dragSpeed to 0
  221.   repeat with num=6 to the number of lines in card field "Data Scroll"
  222.     put line num of card field "Data Scroll" into it
  223.     if it is empty then exit repeat
  224.     do it
  225.   end repeat
  226.   wait 1 seconds
  227.   doMenu revert
  228.   choose browse tool
  229.   showMakeField
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 22 (button)
  235. -- low flags: 80
  236. -- high flags: A004
  237. -- rect: left=209 top=264 right=287 bottom=298
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: show fields
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   repeat with i=1 to the number of card fields
  249.     show card field i
  250.   end repeat
  251.   repeat with i=1 to the number of card buttons
  252.     show card button i
  253.   end repeat
  254. end mouseUp
  255.  
  256.  
  257.  
  258. -- part 24 (button)
  259. -- low flags: 80
  260. -- high flags: A004
  261. -- rect: left=381 top=261 right=285 bottom=452
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Return
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   hide card field "Data Scroll"
  273.   hide card button "Return"
  274.   showMakeField
  275. end mouseUp
  276.  
  277.  
  278. -- part 25 (button)
  279. -- low flags: 80
  280. -- high flags: 8004
  281. -- rect: left=45 top=35 right=62 bottom=131
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: one
  290.  
  291.  
  292. -- part 26 (button)
  293. -- low flags: 80
  294. -- high flags: 8004
  295. -- rect: left=208 top=35 right=62 bottom=294
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: two
  304.  
  305.  
  306. -- part 27 (button)
  307. -- low flags: 80
  308. -- high flags: 8004
  309. -- rect: left=373 top=35 right=62 bottom=459
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: three!
  318.  
  319.  
  320. -- part contents for card part 1
  321. ----- text -----
  322. Please insert the name and location of the data file that you wish to save the drag coordinates to in the field below.
  323.  
  324. Designate the pathname to the file as shown, with volumes and folders seperated by colons. (:)
  325.  
  326. -- part contents for card part 2
  327. ----- text -----
  328. Easy Drive:HYPERR!:Paul's Stacks:Drag Data
  329.  
  330. -- part contents for card part 4
  331. ----- text -----
  332. Click in this box when you are ready to begin tracing the drag path.
  333.  
  334. After clicking here, move to the starting point of your drag path.  A countdown will begin, and the cursor will become a watch.  At the count of three, when the cursor becomes a paint brush tip, start moving the mouse around the screen.  (You don't need to hold the mouse button down.) 
  335.  
  336. Click the mouse when you get to the endpoint of your drag pattern.
  337.  
  338.  
  339.  
  340.  
  341. -- part contents for card part 12
  342. ----- text -----
  343.  A card field has now been created that contains the necessary commands to facilitate the automation of an animation routine.
  344.  You can have this field displayed for you now, then you can cut the info out of the field and paste it into your script.
  345.  
  346.                Would you like to display this field now?
  347.  
  348.  
  349.  
  350. -- part contents for card part 6
  351. ----- text -----
  352.  
  353.